Program func4;
Uses crt;
Var
a, b, c, d, m1, m2: integer;
Function Min(x, y: integer): integer;
begin
if x < y then
Min := x
else
Min := y;
end;
begin
ClrScr;
Writeln('введите 4 числа');
readln(a, b, c, d);
m1 := Min(a, b);
m2 := Min(c, d);
m1 := Min(m1, m2);
Writeln('минимум=', Min);
readln;
End.